10 POKE53248,100:POKE53287,7:POKE2040,11:FORI=0TO63:POKE704+I,255:NEXT
20 FORI=0TO290:POKE53249,I+255*(I>255):POKE930,-(I<256):POKE931,-(I>255):NEXT:GOTO20